Function WITHOUTFRISAT(Mydate1 As Date, Mydate2 As Date) As Long
If Mydate2 < Mydate1 Then
Dim tempdate As Date
tempdate = Mydate1
Mydate1 = Mydate2
Mydate2 = tempdate
End If

 Dim Datediff As Long, vic As Long
 Datediff = Mydate2 - Mydate1 + 1
  vic = 0
 For i = 1 To Datediff
  If Weekday(Mydate1 + i - 1) > 5 Then vic = vic + 1
 Next i
 
 WITHOUTFRISAT = Mydate2 - Mydate1 - vic + 1
End Function
Function FRI_SAT(Mydate1 As Date, Mydate2 As Date) As Long

If Mydate2 < Mydate1 Then
Dim tempdate As Date
tempdate = Mydate1
Mydate1 = Mydate2
Mydate2 = tempdate
End If

 Dim Datediff As Long, vic As Long
 Datediff = Mydate2 - Mydate1 + 1
  vic = 0
 For i = 1 To Datediff
  If Weekday(Mydate1 + i - 1) > 5 Then vic = vic + 1
 Next i
 
 FRI_SAT = vic
 
End Function

